home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / WORLDGAT.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  947 b   |  48 lines
  1. # WorldGate, Inc. PPP and SLIP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 7-13-95 CEL
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.      
  10. SetTimeOut  60
  11. CfgGetValue "Username" username
  12.  
  13. IF result = 0 THEN
  14.     GetInput "Enter your username:"  username
  15.     IF result = 0 THEN
  16.         PRINT "Warning, no username entered."
  17.     ELSE
  18.         PRINT "Username set to: ";username
  19.     ENDIF
  20. ENDIF
  21.     
  22. CfgGetValue "Password" password
  23. IF result = 0 THEN
  24.     GetPassword "Enter your password:" password
  25.     IF result = 0 THEN
  26.         PRINT "Warning, no password entered."
  27.     ELSE
  28.         PRINT "Password set."
  29.     ENDIF
  30. ENDIF
  31.     
  32. CfgGetValue "Framing" framing
  33. IF result = 0 THEN
  34.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  35. ENDIF 
  36.  
  37. CommWaitFor "login:"  
  38.  
  39. CommSend        username
  40. CommSend        "%r"         
  41.     
  42. CommWaitFor     "password:"
  43. CommSend        password
  44. CommSend        "%r"
  45.     
  46.     
  47. END
  48.